home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Utilities / Communications / Pancake Dev Package 1.0 / Procs.p < prev   
Encoding:
Text File  |  1995-09-05  |  2.7 KB  |  131 lines  |  [TEXT/PJMM]
  1. const
  2.     Bounces = 1;  {Report where consts}
  3.     Callers = 2;
  4.     Schedular = 3;
  5.     Errors = 4;
  6.     Events = 5;
  7.     LogFail = 6;
  8.     Mail = 7;
  9.     Net = 8;
  10.     Transfers = 9;
  11.  
  12.     vCurTextHand = 1;
  13.     vKeyBuf = 2;
  14.     vNodeAction = 3;
  15.     vCurAnswer = 4;
  16.     vCurCommand = 5;
  17.     vCurParams = 6;
  18.     vNumParams = 7;
  19.     vThisUser = 8;
  20.     vNoReturn = 9;
  21.     vCurPath = 10;
  22.     vCx = 11;
  23.     vCy = 12;
  24.  
  25. type
  26.     ptr2hand = ^Handle;
  27.     ptr2str = ^str255;
  28.     ptr2bool = ^boolean;
  29.  
  30. procedure WriteProc (str: string; theRout: ProcPtr);
  31. inline
  32.     $205f, $4e90;
  33.  
  34. procedure WritelnProc (str: string; theRout: ProcPtr);
  35. inline
  36.     $205f, $4e90;
  37.  
  38. procedure WriteHandProc (hand: Handle; theRout: ProcPtr);
  39. inline
  40.     $205f, $4e90;
  41.  
  42. procedure ListResFileProc (name: string; theRout: ProcPtr);
  43. inline
  44.     $205f, $4e90;
  45.  
  46. procedure SetNodeActionProc (action: NodeActionType; theRout: ProcPtr);
  47. inline
  48.     $205f, $4e90;
  49.  
  50. procedure RestoreNodeActionProc (theRout: ProcPtr);
  51. inline
  52.     $205f, $4e90;
  53.  
  54. procedure JumpToProc (x, y: integer; theRout: ProcPtr);
  55. inline
  56.     $205f, $4e90;
  57.  
  58. procedure OutProc (str: string; theRout: ProcPtr);
  59. inline
  60.     $205f, $4e90;
  61.  
  62. procedure OutPtrProc (buf: ptr; size: longint; theRout: ProcPtr);
  63. inline
  64.     $205f, $4e90;
  65.  
  66. procedure ReportProc (where: integer; str: string; theRout: ProcPtr);
  67. inline
  68.     $205f, $4e90;
  69.  
  70. function GetVarPtrProc (which: integer; theRout: ProcPtr): ptr;
  71. inline
  72.     $205f, $4e90;
  73.  
  74. procedure ListHandProc (hand: handle; theRout: ProcPtr);
  75. inline
  76.     $205f, $4e90;
  77.  
  78. function ListTextFileProc (pathname, filename: string; theRout: ProcPtr): OSErr;
  79. inline
  80.     $205f, $4e90;
  81.  
  82. procedure LettersPromptProc (prompt, possible: string; len: byte; theRout: ProcPtr);
  83. inline
  84.     $205f, $4e90;
  85.  
  86. procedure PasswordPromptProc (prompt, possible: string; len: byte; theRout: ProcPtr);
  87. inline
  88.     $205f, $4e90;
  89.  
  90. procedure NumbersPromptProc (prompt, possible: string; max: longint; theRout: ProcPtr);
  91. inline
  92.     $205f, $4e90;
  93.  
  94. procedure AutoPromptProc (prompt, possible: string; theRout: ProcPtr);
  95. inline
  96.     $205f, $4e90;
  97.  
  98. procedure YesNoPromptProc (prompt: string; yesDefault: boolean; theRout: ProcPtr);
  99. inline
  100.     $205f, $4e90;
  101.  
  102. procedure DatePromptProc (prompt: string; theRout: ProcPtr);
  103. inline
  104.     $205f, $4e90;
  105.  
  106. procedure PhonePromptProc (prompt: string; theRout: ProcPtr);
  107. inline
  108.     $205f, $4e90;
  109.  
  110. procedure ClrScrProc (theRout: ProcPtr);
  111. inline
  112.     $205f, $4e90;
  113.  
  114. function ReplacePercentsProc (str: string; replaceProc: procPtr; user: userRecPtr; theRout: ProcPtr): string;
  115. inline
  116.     $205f, $4e90;
  117.  
  118. function HasAccessProc (acs: string; theRout: ProcPtr): boolean;
  119. inline
  120.     $205f, $4e90;
  121.  
  122. procedure SendFileProc (protocol: char; path, filename: string; theRout: ProcPtr);
  123. inline
  124.     $205f, $4e90;
  125.  
  126. procedure ReceiveFileProc (protocol: char; path, filename: string; theRout: ProcPtr);
  127. inline
  128.     $205f, $4e90;
  129.  
  130. implementation
  131. end.